Software of the Month Club 1998 March/Software of the Month Club 1998 March.iso/pc/win/edu/solar/solar.exe/0/RCDATA/TFRMADD/TFRMADD.txt

Text File | 1997-11-30 | 10KB | 486 lines

object frmAdd: TfrmAdd
  Left = 275
  Top = 220
  ActiveControl = editName
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Add Wizard'
  ClientHeight = 369
  ClientWidth = 577
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object bevelLine: TBevel
    Left = 8
    Top = 320
    Width = 561
    Height = 9
    Shape = bsBottomLine
  end
  object Panel2: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 7
    Visible = False
    object shapeColor: TShape
      Left = 272
      Top = 240
      Width = 73
      Height = 25
      Brush.Color = clYellow
    end
    object imageBody: TImage
      Left = 264
      Top = 32
      Width = 79
      Height = 79
      Stretch = True
    end
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 241
      Height = 49
      AutoSize = False
      Caption =
        'You can assign an image for your body. If you don'#39't have one han' +
        'dy, you can use the default image to the right.'
    end
    object Label12: TLabel
      Left = 8
      Top = 96
      Width = 241
      Height = 49
      AutoSize = False
      Caption =
        'If you have a BMP file which you would like to use, simply click' +
        ' the '#39'Bro&wse...'#39'  button to choose the file.'
    end
    object Label15: TLabel
      Left = 8
      Top = 184
      Width = 337
      Height = 49
      AutoSize = False
      Caption =
        'To associate a tail with this body, click the '#39'&Display Tail'#39' ch' +
        'eckbox. You can also click the '#39'&Color'#39' button to choose the col' +
        'or of the tail.'
    end
    object checkboxTail: TCheckBox
      Left = 8
      Top = 240
      Width = 129
      Height = 25
      Caption = '&Display Tail:'
      TabOrder = 1
    end
    object butColor: TButton
      Left = 192
      Top = 240
      Width = 75
      Height = 25
      Caption = '&Color...'
      TabOrder = 2
      OnClick = butColorClick
    end
    object butBrowse: TButton
      Left = 264
      Top = 118
      Width = 81
      Height = 27
      Caption = '&Bro&wse...'
      TabOrder = 0
      OnClick = butBrowseClick
    end
  end
  object Panel3: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 6
    Visible = False
    object lblXPos: TLabel
      Left = 8
      Top = 184
      Width = 89
      Height = 16
      AutoSize = False
      Caption = '&X Position:'
      FocusControl = editXPosition
    end
    object lblYpos: TLabel
      Left = 8
      Top = 224
      Width = 89
      Height = 16
      AutoSize = False
      Caption = '&Y Position:'
      FocusControl = editYPosition
    end
    object lblzPos: TLabel
      Left = 8
      Top = 264
      Width = 89
      Height = 16
      AutoSize = False
      Caption = '&Z Position:'
      FocusControl = editZPosition
    end
    object Label13: TLabel
      Left = 8
      Top = 56
      Width = 89
      Height = 16
      AutoSize = False
      Caption = '&Mass:'
    end
    object Label14: TLabel
      Left = 8
      Top = 96
      Width = 89
      Height = 16
      AutoSize = False
      Caption = '&Radius:'
    end
    object Label16: TLabel
      Left = 8
      Top = 8
      Width = 337
      Height = 33
      AutoSize = False
      Caption =
        'Use the following text boxes to set the &Mass and the &Radius of' +
        ' the body.'
    end
    object Label17: TLabel
      Left = 8
      Top = 136
      Width = 337
      Height = 33
      AutoSize = False
      Caption =
        'Edit the following text boxes in order to edit the X, Y, and Z p' +
        'ositions of the body relative to the origin.'
    end
    object lblMassUnit: TLabel
      Left = 281
      Top = 58
      Width = 15
      Height = 16
      Caption = 'kg'
    end
    object lblRadiusUnit: TLabel
      Left = 281
      Top = 98
      Width = 34
      Height = 16
      Caption = 'meter'
    end
    object lblYPositionUnit: TLabel
      Left = 281
      Top = 226
      Width = 34
      Height = 16
      Caption = 'meter'
    end
    object lblXPositionUnit: TLabel
      Left = 281
      Top = 186
      Width = 34
      Height = 16
      Caption = 'meter'
    end
    object lblZPositionUnit: TLabel
      Left = 281
      Top = 266
      Width = 34
      Height = 16
      Caption = 'meter'
    end
    object editXPosition: TEdit
      Left = 96
      Top = 182
      Width = 180
      Height = 24
      TabOrder = 2
      Text = '0'
    end
    object editYPosition: TEdit
      Left = 96
      Top = 222
      Width = 180
      Height = 24
      TabOrder = 3
      Text = '0'
    end
    object editZPosition: TEdit
      Left = 96
      Top = 262
      Width = 180
      Height = 24
      TabOrder = 4
      Text = '0'
    end
    object editMass: TEdit
      Left = 96
      Top = 54
      Width = 180
      Height = 24
      TabOrder = 0
      Text = '1'
    end
    object editRadius: TEdit
      Left = 96
      Top = 94
      Width = 180
      Height = 24
      TabOrder = 1
      Text = '1'
    end
  end
  object Panel4: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 8
    Visible = False
    object Label24: TLabel
      Left = 8
      Top = 40
      Width = 337
      Height = 33
      AutoSize = False
      Caption =
        'Edit the following text boxes in order to edit the X, Y, and Z v' +
        'elocities of the body.'
    end
    object lblXVel: TLabel
      Left = 8
      Top = 88
      Width = 89
      Height = 16
      AutoSize = False
      Caption = 'X &Velocity:'
      FocusControl = editXVelocity
    end
    object lblYvel: TLabel
      Left = 8
      Top = 128
      Width = 89
      Height = 16
      AutoSize = False
      Caption = 'Y V&elocity:'
      FocusControl = editYVelocity
    end
    object lblZVel: TLabel
      Left = 8
      Top = 168
      Width = 89
      Height = 16
      AutoSize = False
      Caption = 'Z Vel&ocity:'
      FocusControl = editZVelocity
    end
    object Label18: TLabel
      Left = 8
      Top = 224
      Width = 337
      Height = 33
      AutoSize = False
      Caption =
        'Now press the '#39'&Finish'#39' button to add your new body to the other' +
        's in your current system.'
    end
    object lblXVelocityUnit: TLabel
      Left = 281
      Top = 90
      Width = 24
      Height = 16
      Caption = 'm/s'
    end
    object lblYVelocityUnit: TLabel
      Left = 281
      Top = 130
      Width = 24
      Height = 16
      Caption = 'm/s'
    end
    object lblZVelocityUnit: TLabel
      Left = 281
      Top = 170
      Width = 24
      Height = 16
      Caption = 'm/s'
    end
    object editXVelocity: TEdit
      Left = 96
      Top = 86
      Width = 180
      Height = 24
      TabOrder = 0
      Text = '0'
    end
    object editYVelocity: TEdit
      Left = 96
      Top = 126
      Width = 180
      Height = 24
      TabOrder = 1
      Text = '0'
    end
    object editZVelocity: TEdit
      Left = 96
      Top = 166
      Width = 180
      Height = 24
      TabOrder = 2
      Text = '0'
    end
  end
  object butCancel: TButton
    Left = 464
    Top = 336
    Width = 97
    Height = 26
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 3
    OnClick = ButtonClick
  end
  object butFinish: TButton
    Left = 353
    Top = 336
    Width = 97
    Height = 26
    Caption = '&Finish'
    Default = True
    Enabled = False
    TabOrder = 2
    OnClick = ButtonClick
  end
  object butNext: TButton
    Left = 256
    Top = 336
    Width = 97
    Height = 26
    Caption = '&Next >'
    Enabled = False
    TabOrder = 1
    OnClick = ButtonClick
  end
  object butBack: TButton
    Left = 159
    Top = 336
    Width = 97
    Height = 26
    Caption = '< &Back'
    Enabled = False
    TabOrder = 0
    OnClick = ButtonClick
  end
  object panelImage: TPanel
    Left = 16
    Top = 16
    Width = 169
    Height = 297
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 4
    object imageAdd: TImage
      Left = 0
      Top = 0
      Width = 165
      Height = 293
      Align = alClient
      Center = True
      Picture.Data = {<image000.bmp>}
    end
  end
  object Panel1: TPanel
    Left = 200
    Top = 16
    Width = 353
    Height = 297
    BevelOuter = bvNone
    TabOrder = 5
    object Label1: TLabel
      Left = 8
      Top = 112
      Width = 89
      Height = 16
      AutoSize = False
      Caption = 'Body N&ame:'
      FocusControl = editName
    end
    object Label3: TLabel
      Left = 8
      Top = 24
      Width = 337
      Height = 65
      AutoSize = False
      Caption =
        'Creating a new body is easy! Just type in the name below (exampl' +
        'e: Mars). If you don'#39't know all the properties of the body right' +
        ' now, you can click the '#39'&Finish'#39' button, and the body will be a' +
        'dded as is.'
    end
    object Label4: TLabel
      Left = 8
      Top = 152
      Width = 337
      Height = 49
      AutoSize = False
      Caption =
        'You will be able to change all the properites when you are ready' +
        ', using the '#39'Properties'#39' window (accessable from the '#39'Body'#39' menu' +
        ' in the main window).'
    end
    object Label11: TLabel
      Left = 8
      Top = 216
      Width = 337
      Height = 65
      AutoSize = False
      Caption =
        'If you already know what the correct properties for this body ar' +
        'e, click the '#39'&Next'#39' button to continue. You will still be able ' +
        'to edit the body properties later if you so desire.'
    end
    object editName: TEdit
      Left = 96
      Top = 110
      Width = 249
      Height = 24
      TabOrder = 0
      OnChange = editNameChange
    end
  end
  object sysOpen: TOpenDialog
    DefaultExt = 'bmp'
    FileEditStyle = fsEdit
    Filter = 'Picture Files (*.bmp, *.dib)|*.bmp;*.dib|All Files (*.*)|*.*'
    Title = 'Body Picture - Open'
    Left = 8
    Top = 336
  end
  object sysColor: TColorDialog
    Ctl3D = True
    Left = 40
    Top = 336
  end
end